Option Explicit
Sub P_Sample040()
    Dim myFso As Scripting.FileSystemObject
    Set myFso = New Scripting.FileSystemObject
    MsgBox myFso.GetTempName
    Set myFso = Nothing
End Sub